home *** CD-ROM | disk | FTP | other *** search
/ Disc to the Future 2 / Disc to the Future Part II Programmer's Reference (Wayzata Technology)(6013)(1992).bin / MAC / MPW_TOOL / TOOLS / TOOLS_WI / ICON_8 / ICONT_FO / TLEX.H < prev    next >
Text File  |  1990-03-02  |  3KB  |  121 lines
  1. /*
  2.  * Token table structure.
  3.  */
  4.  
  5. struct toktab {
  6.    char *t_word;        /* token */
  7.    int  t_type;            /* token type returned by yylex */
  8.    int  t_flags;        /* flags for semicolon insertion */
  9.    };
  10.  
  11. extern struct toktab toktab[];    /* token table */
  12. extern struct toktab *restab[];    /* reserved word index */
  13.  
  14. #define T_Ident        &toktab[0]
  15. #define T_Int        &toktab[1]
  16. #define T_Real        &toktab[2]
  17. #define T_String    &toktab[3]
  18. #define T_Cset        &toktab[4]
  19. #define T_Eof        &toktab[5]
  20.  
  21. /*
  22.  * t_flags values for token table.
  23.  */
  24.  
  25. #define Beginner 1        /* token can follow a semicolon */
  26. #define Ender    2        /* token can precede a semicolon */
  27.  
  28. /*
  29.  * Operator table - a finite-state automaton for recognizing Icon operators.
  30.  */
  31.  
  32. struct optab {
  33.    char o_input;
  34.    char o_action;
  35.    char *o_val;
  36.    };
  37.  
  38. extern struct optab state0[];
  39. extern struct optab state1[];
  40. extern struct optab state2[];
  41. extern struct optab state3[];
  42. extern struct optab state4[];
  43. extern struct optab state5[];
  44. extern struct optab state6[];
  45. extern struct optab state7[];
  46. extern struct optab state8[];
  47. extern struct optab state9[];
  48. extern struct optab state10[];
  49. extern struct optab state11[];
  50. extern struct optab state12[];
  51. extern struct optab state13[];
  52. extern struct optab state14[];
  53. extern struct optab state15[];
  54. extern struct optab state16[];
  55. extern struct optab state17[];
  56. extern struct optab state18[];
  57. extern struct optab state19[];
  58. extern struct optab state20[];
  59. extern struct optab state21[];
  60. extern struct optab state22[];
  61. extern struct optab state23[];
  62. extern struct optab state24[];
  63. extern struct optab state25[];
  64. extern struct optab state26[];
  65. extern struct optab state27[];
  66. extern struct optab state28[];
  67. extern struct optab state29[];
  68. extern struct optab state30[];
  69. extern struct optab state31[];
  70. extern struct optab state32[];
  71. extern struct optab state33[];
  72. extern struct optab state34[];
  73. extern struct optab state35[];
  74. extern struct optab state36[];
  75. extern struct optab state37[];
  76. extern struct optab state38[];
  77. extern struct optab state39[];
  78. extern struct optab state40[];
  79. extern struct optab state41[];
  80. extern struct optab state42[];
  81. extern struct optab state43[];
  82. extern struct optab state44[];
  83. extern struct optab state45[];
  84. extern struct optab state46[];
  85. extern struct optab state47[];
  86. extern struct optab state48[];
  87. extern struct optab state49[];
  88. extern struct optab state50[];
  89. extern struct optab state51[];
  90. extern struct optab state52[];
  91. extern struct optab state53[];
  92. extern struct optab state54[];
  93. extern struct optab state55[];
  94. extern struct optab state56[];
  95. extern struct optab state57[];
  96. extern struct optab state58[];
  97. extern struct optab state59[];
  98. extern struct optab state60[];
  99. extern struct optab state61[];
  100. extern struct optab state62[];
  101.  
  102. /*
  103.  * o_action values.
  104.  */
  105.  
  106. #define A_Goto   1    /* shift input and goto new state o_val */
  107. #define A_Error  2    /* illegal operator */
  108. #define A_Return 3    /* return o_val, save input char */
  109. #define A_Immret 4    /* return o_val, discard input char */
  110.  
  111. /*
  112.  * Miscellaneous.
  113.  */
  114.  
  115. #define isoctal(c) ((c)>='0'&&(c)<='7')    /* macro to test for octal digit */
  116. #define NextChar   nextchar()        /* macro to get next character */
  117. #define PushChar(c) peekc=(c)        /* macro to push back a character */
  118.  
  119. #define Comment '#'            /* comment beginner */
  120. #define Escape  '\\'            /* string literal escape character */
  121.